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-TITLE MTHSHMAX1 HMAX1 function 
IDENT /1-002/ ; File: MTHHM MAX1. MAR EDIT: JCwW1002 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMEN 1 CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESER 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN Moone ks tM THE TERMS OF SUCH att AND vere TH we 


*® oa 
** ® 
*® * 
:® ® 
** ® 
*® 
*® ® 
«INC 0 SOF TWARE * 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S HEREBY * 
:@ TRANSFERRED. : 
*® ® 
:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:® CORPORATION. . 
** ® 
**® ® 
** * 
** *® 
** + 
:* * 
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Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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foci MATH LIBRARY 
¢ ABSTR ACT 


This module contains MTHS$HMAX1: 
Return the maximum of nH floating-point values. 


: ; VERSION: 1 
: HISTORY: 


: ; AUTHOR: 
Steven B. Lionel, 18-Jan-79: Version 1 


; : MODIFIED BY: 
Jeffrey C. Wiener, 14-May-84: Version 1 
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: -SBTTL HISTORY ; Detailed Current Edit History 
0 


: Edit History for Version 1 of MTHSHMAX1 
5; 1-00) = Original. SBL 18-Jan-79 
§ 3 1- - The code as written did not work. Fixed various references to AP 
oY 3 and changed a GTR to a GEQ. Also fixed some comments. JCW 14-May-1984 
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p++ 
; FUNCTIONAL DESCRIPTION: 
Returns the maximum of nm arguments, n is greater or equal to 1. 


Because the result can not be expressed in 64 bits, the 
maximum of arguments 2 through n is returned as argument 1. 


CALLING SEQUENCE: 
CALL MTHSHMAX1 (Maximum.wh.r, Carg.rh.r)) 


INPUT PARAMETERS: 
The n input parameters are G floating-point 
values and are cail-by-reference. 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
The H floating output parameter is returned by reference. 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: F 
Reserved Operand exception can occur. 
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0000 eENTRY MTHSHMAX1, “M<> 
51 6C 9A MOVZBL (AP), R1 ; R1 = arg count 
51 07 DECL R1 ; R1 = the actual number of parameters 
8C D5 00 TSTL (AP) + ; Arg count > 0 test and then bump AP 4 
oo « »® 0 MOVL — CAP), RO ; save address of result 
ac D 0 TSTL (AP)+ ; AP => first arg 
60 C 70FD 00 1$: MOVH a(AP)+, (RO) ; (RO) = trial max 
09 11 00 BRB 3$ ; check arg count ; 
60 00 BC 71FD 2$: CMPH a(AP), (RO) ; if this arg is greater than trial max 
F518 BGEQ 1$ ; then it becomes trial max 
gc D5 8 TSTL (AP)+ ; else ignore it 
F451 FS 3$: SOBGTR R1, 2$ ; return if arg count exausted 
04 8 RET 
60 - END 
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Symbol table 6 
MTHSHMAX1 00000000 RG 01 

pore an emer eee ws ee 

H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 Q.) 00 ¢ 0.) NOPIC  USR 
_MTHSCODE 00000021 (¢ 33.) 01 ¢ 1.) PIC  USR 

eee meer eon eee ese ee ee ne eons 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.10 8:00:00 -3¢ 
Command processing 118 00: 8: 3.28 0:00:0 £8 
Pass 1 70 00:00:00.41 Bs BG | 
Symbol table sort 0 00:00: 5-90 Ba 0:00.00 
Pass 39 4 0.31 0:00:01.86 
Symbol table output 2 00:00:00.0 BO: 20 200 Ng 
Psect synopsis output 2 00:00:00.0 00:00:00.0 
Cross-reference output 0 00:00:00.0 00:00:00.00 
Assembler run totals 262 00:00:01.4 00:00:08.12 


The working set Limit was 900 pages. 


CON ABS 
CON REL 


1481 bytes (3 pages) of virtual memory were used to buffer the intermediate cod 


There were 1 
143 source Lines were read in Pass 


pages of virtual memory were used to define 0 macros. 


+ 

H Macro Library statistics ; 
Macro Library name Macros defined 
.$255$DUA28: CSYSLIBISTARLET.MLB;2 0 
O GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHHMAX1/OBJ=OBJ$:MTHHMAX1 MSRC$:MTHHMAX1/UPDATE=(ENHS :MTHHMAX 1) 


e. 
pages of symbol table space allocated to hold 1 non-local and 3 local symbols. 
» producing 10 object records in Pass 2. 


LCL NOSHR NO 
LCL SHR 
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EXE 


EXE NORD NOWRT NOVEC BYTE 
RD NOWRT NOVEC LONG 
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